How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/egyptw.dir/01704_Script_Animate-Circle

Text File | 1995-09-13 | 7KB | 252 lines

global gBeenClicked

on Animate2 whichsprite, whichsound, HowManyTimes
  global gAnimationcast
  puppetsound whichsound
  set gAnimationcast = the castnum of sprite whichsprite
  set count = 0
  set animating = 1
  repeat while count < HowManyTimes
    if animating = 1 then
      set the castnum of sprite whichsprite = gAnimationcast + 1
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite = gAnimationcast
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .8
      set count = count + 1
    end if
  end repeat
  set the castnum of sprite whichsprite = gAnimationcast
  updatestage
  Puppetsound 0
  set gBeenClicked = 0
end

on Animate2X whichsprite1, whichsprite2, whichsound, HowManyTimes
  global gAnimationcast, gAnimationcast2
  set gAnimationcast = the castnum of sprite whichsprite1
  set gAnimationcast2 = the castnum of sprite whichsprite2
  set count = 0
  set cowhead = 1
  set animating = 1
  repeat while count < HowManyTimes
    if animating = 1 then
      set the castnum of sprite whichsprite1 = gAnimationcast + 1
      puppetsound whichsound
      updatestage
      wait .5
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      if cowhead = 1 then
        set the castnum of sprite whichsprite2 = gAnimationcast2 + 1
        updatestage
        wait .3
        if (the mousedown) then
          set animating = 0
          exit repeat
        end if
        set the castnum of sprite whichsprite2 = gAnimationcast2
        updatestage
        wait .3
        set cowhead = 0
      else
        set cowhead = 1
      end if
      set the castnum of sprite whichsprite1 = gAnimationcast
      Puppetsound 0
      updatestage
      wait .3
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      set count = count + 1
    end if
  end repeat
  set the castnum of sprite whichsprite2 = gAnimationcast2
  set the castnum of sprite whichsprite1 = gAnimationcast
  puppetsound 0
  updatestage
  set gBeenClicked = 0
end


on Animate5X whichsprite1, whichsprite2, whichsound, HowManyTimes
  global gAnimationcast1, gAnimationcast2
  set gAnimationcast1 = the castnum of sprite whichsprite1
  set gAnimationcast2 = the castnum of sprite whichsprite2
  set count = 0
  set animating = 1
  puppetsound whichsound
  repeat while count < HowManyTimes
    if animating = 1 then
      set the castnum of sprite whichsprite1 = gAnimationcast1 + 1
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 1
      updatestage
      wait .2
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      set the castnum of sprite whichsprite1 = gAnimationcast1
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 2
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 4
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .5
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite2 = gAnimationcast2
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite1 = gAnimationcast1 + 1
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 1
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite1 = gAnimationcast1
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 2
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 4
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .5
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 4
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .5
      set the castnum of sprite whichsprite2 = gAnimationcast2 + 3
      updatestage
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      wait .2
      set count = count + 1
    end if
  end repeat
  set the castnum of sprite whichsprite2 = gAnimationcast2
  set the castnum of sprite whichsprite1 = gAnimationcast1
  updatestage
  puppetsound 0
  set gBeenClicked = 0
end

on Animate5 whichsprite, whichsound
  global gAnimationcast
  puppetsound whichsound
  set gAnimationcast = the castnum of sprite whichsprite
  repeat with x = 1 to 4
    set the castnum of sprite whichsprite = gAnimationcast + x
    updatestage
    wait .1
  end repeat
  set the castnum of sprite whichsprite = gAnimationcast
  updatestage
  wait .1
  Puppetsound 0
end

on Animate6 whichsprite, whichsound
  global gAnimationcast
  puppetsound whichsound
  updatestage
  set animating = 1
  repeat while (soundbusy(1) and (animating = 1))
    wait .3
    set gAnimationcast = the castnum of sprite whichsprite
    repeat with x = 1 to 5
      if (the mousedown) then
        set animating = 0
        exit repeat
      end if
      set the castnum of sprite whichsprite = gAnimationcast + x
      updatestage
      wait .2
    end repeat
    set the castnum of sprite whichsprite = gAnimationcast
    updatestage
  end repeat
  Puppetsound 0
  set gBeenClicked = 0
end

on Animate12 whichsprite, whichsound
  global gAnimationcast
  puppetsound whichsound
  set gAnimationcast = the castnum of sprite whichsprite
  repeat with x = 1 to 11
    set the castnum of sprite whichsprite = gAnimationcast + x
    updatestage
    wait .1
  end repeat
  set the castnum of sprite whichsprite = gAnimationcast
  updatestage
  wait .1
  Puppetsound 0
  set gBeenClicked = 0
end